10 DATA 000,037,147,049,140,048,146,056
20 DATA 055,148,048,130,057,057,057,031
30 IFPEEK(124)=76ANDPEEK(126)=192THENPOKE127,0
35 OPEN15,8,15,"U9":OPEN1,0:POKE53280,11:POKE53281,0
40 N$="":N1$="":N2$=""
50 PRINT"[147][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
60 PRINT" BATCH UTILITIES"
70 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
80 PRINT"SELECT:"
90 PRINT" 1- FIND ERROR"
100 PRINT" 2- CONVERT SEQ TO SPEEDSCRIPT"
110 PRINT" 3- PRINT SEQ FILE"
120 PRINT" 4- MAKE EMPTY FILE"
130 PRINT" 5- EXIT PROGRAM"
140 GETI$:A=VAL(I$):IFA<1ORA>5THEN140
150 ONAGOTO180,340,490,590:PRINT"[147]";
160 CLOSE1:CLOSE2:CLOSE3:CLOSE15:CLR
170 END
180 PRINT"[147] ** FIND ERROR **"
190 INPUT"FILENAME";N$:IFN$=""THEN40
200 E=PEEK(50997)+256*PEEK(50998):E$=""
210 E=E/4096:FORI=1TO4:A=INT(E):E$=E$+CHR$(48+A-(A>9)*7)
220 E=16*(E-A):NEXT
230 PRINT"LOCATION? $";E$;"[157][157][157][157]";
240 INPUT#1,E$:IFLEN(E$)<>4ORE$="0000"THEN40
250 E=0:FORI=1TO4:A=ASC(E$):A=A-48+(A>64)*7:E$=MID$(E$,2)
260 E=16*E+A:NEXT:PRINT"[147]":C=0
270 OPEN2,8,2,"0:"+N$+",S,R":GOSUB1000
280 GET#2,I$:A=ST:C=C+1:IFI$=CHR$(13)THENI$="_"+I$
290 IFC>ETHENPOKE199,1
295 GETJ$:IFJ$=" "THENPOKE198,0:WAIT198,1:GETJ$
300 IFJ$=CHR$(13)THENA=1
310 PRINTI$;:IFA=0THEN280
320 CLOSE2:PRINT:PRINT" PRESS A KEY"
330 WAIT198,15:POKE198,0:GOTO40
340 PRINT"[147] ** CONVERT SEQ TO SPEEDSCRIPT **"
350 INPUT"SOURCE FILE";N1$:IFN1$=""THEN40
360 INPUT"OUTPUT FILE";N2$:IFN2$=""THEN40
370 OPEN2,8,2,"0:"+N1$+",S,R":GOSUB1000
390 OPEN3,8,3,"0:"+N2$+",P,W":GOSUB1000
400 RESTORE:FORI=1TO16:READA
410 PRINT#3,CHR$(A);:NEXT:PRINT"[147]"
420 GET#2,I$:A=ST:J$=I$:IFJ$=CHR$(13)THENJ$="_"
430 PRINTJ$;:POKE783,1:SYS65520:X=PEEK(782)+40*(PEEK(782)>39):Y=PEEK(781)
440 I=PEEK(1023+X+Y*40):PRINT#3,CHR$(I);:I=ST
450 IFI$=CHR$(13)THENPRINT
460 IFITHENGOSUB1000
470 IFA=0THEN420
480 PRINT#3,CHR$(146);CHR$(48);:CLOSE2:CLOSE3:GOTO40
490 PRINT"[147] ** PRINT SEQ FILE **"
500 INPUT"FILENAME";N$:IFN$=""THEN40
510 PRINT"PRINT TO DEVICE# 4[157]";:INPUT#1,D:IFD=0THEN40
520 OPEN2,8,2,"0:"+N$+",S,R":GOSUB1000:OPEN3,D:L=0:P=1:PRINT"[147]"
530 IFL=0THENPRINT#3,CHR$(14);N$,"PAGE";P;CHR$(15):PRINT#3:L=2
540 GET#2,I$:A=ST:IFI$=CHR$(13)THENI$="_"+I$:L=L+1
550 PRINT#3,I$;
560 IFL=62THENFORI=1TO4:PRINT#3:NEXT:L=0:P=P+1
570 IFA=0THEN530
580 CLOSE2:PRINT#3:CLOSE3:GOTO40
590 PRINT"[147] ** MAKE EMPTY FILE **"
600 INPUT"FILENAME";N$:IFN$=""THEN40
610 OPEN2,8,2,"0:"+N$+",P,W":GOSUB1000
620 RESTORE:FORI=0TO15:READA:PRINT#2,CHR$(A);:NEXT
630 CLOSE2:GOTO40
1000 DS$=""
1010 GET#15,B$:DS$=DS$+B$:IFB$<>CHR$(13)THEN1010
1020 IFLEFT$(DS$,2)="00"THENRETURN
1030 PRINT"[147]ERROR:[146] ";DS$:GOTO160